package Bio::Rambam::Proteomics::Quant::PsmQuantInfo;
use Moose;
use namespace::autoclean;
use Data::Dumper;

has 'quantInfo'	=>	(is =>'rw', isa=>'HashRef[Str]',default=>sub{{}},trigger => sub{	
																								my $self = shift;
																								my $int = shift;
																								calculate($self,$int);
																							});
has 'total_intensity'=>	(is =>'rw', isa=>'Num',default=>0);																							
																							


sub calculate{
	my $self = shift;
	my $int	 = shift;
	
	calculate_total_intensity($self,$int);
	#calculate_ratios($self);
}

sub calculate_total_intensity{
	my $self = shift;
	my $int	 = shift;
	my $total_int=0;
	foreach my $i(keys %{$int}){
		$total_int=$total_int+${$int}{$i};
	}
	$self->total_intensity($total_int);	
}

















__PACKAGE__->meta->make_immutable;